SUBROUTINE ACCI
	COMMON /INTGRS/JACC,JTAIL,JDOT,NTYPE,JSTEM,JWHOLE
	COMMON/DAT/RAC(69),RDT(17),XAC(7),RNTE(22),RACCI(22),NACCI(3)
	COMMON R2,JA,CENTR,J2,RJQ(20),JQ(20) /STF/RSTFAC(0/7),RSTJ2
	COMMON /FONT/JFONT /PLTR/IPLT,RHT /POSI/STFF(0/7),JJ2,POS
	COMMON/ALF/INP(46),RST7,RST3,RSTX,RMINI,RINV,RA,RX,RJX,RJY
	EQUIVALENCE (R3,RJQ(1)),(J5,JQ(3)),(R5,RJQ(3))
	1,(R4,RJQ(2)),(RLVL,RJQ(20)),(R6,RJQ(4))

	RX=RMINI
	RR3=R3
	RR5=AMOD(R5,1.0)
	IF(RR5.NE.0)RR3=RR3-RR5*59.6*RMINI
C  TO SPACE OUT ACCIDS.
	IF(JACC.GT.3)GO TO 3121
C  DBL FLT(4) AND DBL SHRP(5)  ALWAYS USE 'DRAW' ROUTINE.
C ADD (#) ETC.
	IF(IPLT.LT.0)GO TO 3121
	IF(JFONT.NE.0)GO TO 3121
	NX=NACCI(JACC)
	CALL RDRAW(NX+1,RACCI(NX),RACCI,RMINI,RR3,CENTR,RMINI)
	RETURN
C  TO DRAW GOOD ACCIS ON PLOTTER - NOT ON DPY.(IN CLEF4.DMD)
3121	RA=R3
	R3=RR3
C	RJZ=AMOD(R4,100.0)
	J5=9
	IF(JACC.LT.6)GO TO 1
C NEXT FOR (#) ETC.
	R6=2.
	POS=POS+21.*RMINI
	RMINI=RMINI*2.0
C	R3=R3-3.*RMINI
	J5=99
1	J5=J5+JACC
	CALL DRWNT
	R3=RA
	RMINI=RX
	END